home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Dylan Related / Mindy / Mindy 1.2 - Mac PPC / lib / collection-extensions.dbc next >
Encoding:
Text File  |  1995-03-15  |  25.4 KB  |  208 lines  |  [TEXT/ttxt]

  1. # compilation (2.1) of library.dylan
  2. # produced with the 1.2 version of mindycomp
  3. nxöæ<collection-extensions>
  4. library.dylanEdylanheapself-organizing-list
  5. vector-searchsubseqF
  6. extensions<fixed-integer><heap>random-iteration-protocolF <dictionary><self-organizing-list>Ffind-first-key
  7. find-last-keyF subsequence
  8. <subsequence>ˇ# compilation (2.1) of heap.dylan
  9. # produced with the 1.2 version of mindycomp
  10. nxöæ<collection-extensions>
  11. heap.dylan=heapD<heap>    heap-sizeheap-size-setter    heap-dataheap-data-setterheap-less-thanheap-less-than-setter7    Define Class <heap>*++t4%define-class-16t24list6t2<mutable-sequence>∞°≤£ëÇ$76Define Class <heap>,++u+v    +w4 %define-slot2222224%define-class-224
  12. 4    make-slot6u2<fixed-integer>6v2<stretchy-vector>6w2
  13. <function>∞!"Ç∞#$Ç∞%&Ç∑®π∫+
  14. °¢¨ï∫-
  15. £§Æï∫/
  16. •¶ØïìπêπêÑ/C
  17. initialize7Define Method initialize)+}6}24<type>4%define-method29
  18. size    less-than72.+}**    *h+)* next-method+    Ä)*+    Å    +    Ç+    Éapply4make-next-method-function62<6Ä26Å2make6Å26Å26Ç2∞°043î`1ı ¢
  19. 1a
  20. b≥R4Ç¥•ëb∂R4ÇQb∑R4ÇPp4
  21. †°`≤#$µPëÇ&Cclass-for-copy7Define Method class-for-copy)+    á6á2442 97 )+    à)*6à2†4
  22.  †°`≤#$µPëÇ&C shallow-copy7Define Method shallow-copy)+    å6å2442"97    %".+    ç)*old-heap    +    é    )*new-heap#+    è %+    ê    %+    ë%+    ë#6ç26ç26é26é26è2"6è26è26ê26ê2∞°ë`2≤a≥QPÇ¥2µëa∂QPÇ2∑a∏QPÇP04
  23. "†°`†°a≤#Q$µPëµQëÇ&Cas7    Define Method as,++    ï    +    ñ+    ï4    singleton6ï246ï2 <collection>42'97:'    -+    ó**coll    *cls
  24. +    ò")**+    ô)*elem -+    õ-+    õ*6ó26ó24forward-iteration-protocol6ô2add!∞°ë`2a≤QÅ gfedcbUQRSì 
  25. WQRíh≥PXÇTQRíb
  26. ⁄ˇˇˇP04
  27. '∞°ë¢`£¢a°¢b¥%R&∑PQí∑RëÇ(C7Define Method size)+    ü6ü246ü24297)+    †)*    6†22∞04
  28. †°`¢°a≥$Q%∂Pë∂QëÇ'Cempty?7Define Method empty?)+    §6§24423973)+    •)*6•21∞
  29. Ù4
  30. 3†°`≤#$µPëÇ&@
  31. no-default7
  32. Define Constant no-default)+    ©
  33. 
  34. no-default4
  35. init-variable25 `±"PÉCelement7     Define Method element++    ∞ +    ±+    ∞6∞244(6±2<object>4279default7870+    ±**index
  36. *+    ≤)*9:+    ≥<+    ¥<+    µ<+    ∂<+    ∏<+    π    <6±256≤236¥2errorNo such element476π22ı †
  37. 2`±4ë P†ı ≤#ë
  38. P
  39. ¥4µ
  40. í04
  41. 7†°`≤
  42. ë°a£°b¥%R&∑PQí∑RëÇ(C77     Define Method element++    ¡ +    ¬+    ¡6¡244(6¬28427997>70+    ¬**;
  43. *+    √ )*9>+    ƒ?+    ≈?+    Δ?+    «?+    …?+      ?6¬256√26≈2=No such element476 26 2
  44. smaller-child2ı †
  45. 2`±4ë
  46. Ú P†ı ≤#ë
  47. P
  48. ¥4µ∂4
  49. íí04
  50. 7†°`≤
  51. ë°a£°b¥%R&∑PQí∑RëÇ(Celement-setter7    Define Method element-setter)+    ‘6‘244(42A97
  52. A*+    ’ +*;*    *value
  53. +    ÷B4A6’23`∞P2±
  54. É34
  55. 48A†°`≤
  56. ë°a≥$%∂ßPQìÇ(CA7    Define Method element-setter)+    fl6fl246fl242A97A)+    ‡+*key*    *new-elt
  57. 4A6‡26‡2
  58. find-index473`∞P2±≤2≥21ííÉP4
  59. 48A†°`¢°a≥$%∂ßPQìÇ(C17Define Method add!)+    ‰6‰2442197&1,+    Â **F    *
  60. +    Ê H+    Á
  61. H+    ËH4A6Â26Â26Ê26Á2upheap2`∞P3±3≤É
  62. 3≤`≥P3Ç¥33≤
  63. ÒÇ304
  64. 481†°`†°a≤#Q$µP¶íµQëÇ'Cadd-new!7Define Method add-new!++    Ï+    Ó+    Ï6Ï2442J9 test    efficient7*J-+    Ì+*L    *F*+    Ô
  65. )*KM+    ÚN+    ÒN+    N6Ì2=6Ô2member?KL6213ı †
  66. 3`±54"P#2ñ 5
  67. ¥54í04
  68. 48J†°`†°a≤#Q$µP¶íµQëÇ'Cpush7Define Method push)+    ˜6˜2442Q97Q)+    ¯**F    *
  69. 6¯21∞32í04
  70. 48Q†°`†°a≤#Q$µP¶íµQëÇ'Cpop7Define Method pop)+    ¸6¸2442S971S0+    ¸)*+    ˝T+    ˝)*
  71. smallest-itemT+    ˛U+     U+    U+    U+    T476˝26˛24A626262downheap∞1±
  72. í`∞1±≤1ë
  73. Òía≥Q1±
  74. É1¥
  75. ÒaµQ1Ç∂1
  76. ÇP4
  77. 48S†°`≤#$µPëµ¶ëÇ'Cremove!7Define Method remove!++     +    +     6 2442X9 KL7X1
  78. +    
  79. +*L    *elt*+    
  80. )*KY+    [+    .*cur-elt*cur-key*    finished?*next *limit*init[+    )*    kill-list\+    )*state$c+    e+    e+    
  81. e+    #c+    )*dead-elt<c+    )*;@g+    i+    )*old-itemDi+     j+    !j+    #)*new-itemHj+    $l+    %l+    &l+    *c+    *[6
  82. 2O62random-iteration-protocol6206214062G476262624A6#26$2I6&2W3ı †
  83. 3`2     ±5Å
  84. ≤5Å fedcbagQhXiT5YRì 
  85. )P4V5Yíí ≥WV5Yííg
  86. S5YíjZh
  87. ≈ˇˇˇWh¥XÅ nmlkji\XYZì 
  88. ^XYíoµ5_ío∂5∑_ío5∏
  89. Òoπ_5Ç∂5∑5∏ío∫_5∑_É∂5∑_ío5ª__í º5_Ç
  90. 5ª__í Ω5_Ç
  91. [XYíi
  92. qˇˇˇ504
  93. 48X†°`†°a≤#Q$µP¶íµQëÇ'CP7Define Method member?)+    .6.2442P9 KL7:P,+    .+*L*Z
  94. *+    1
  95. )*Ko+    2p+    5.*]*^*_*` *a*bp6.2O612n6220654catch97B/+    5)*return0*`*]*Z*K*a
  96. *    *_*b+    6s+    6)*fs+    7v+    8    v+    6
  97. v+    ;s97t)+    544throw∞°02s4
  98. 9 ±ê`0aQb12R3ì 
  99. $4562Ríí     PÅ
  100. 72RícSa
  101.  ˇˇˇ4
  102. 482ı †
  103. 2`1     ±4Å
  104. ≤4Å fedcba≥SV3PR4TQ$µ¶ëq4
  105. 48P†°`≤#$µP¶íÇ'Creverse7Define Method reverse)+    B6B2442x97Qx .+    C
  106. )*+    D)*new-seqy+    D)*;$z+    E)*Z(|+    D }+    Gz6C26C2 6C2404A∞±1ë"≥1ëì`1a¥QÅ gfedcb≥1ë
  107. ÒhXiUQRSì 
  108.  WQRíjZkµ[PYÉTQRíbY
  109. Òk[h
  110. ŒˇˇˇP4
  111. x†°`≤#$µPëÇ&Creverse!7Define Method reverse!)+    K6K2442~97~)+    L)*6L2x∞1q4
  112. ~†°`≤#$µPëÇ&Csort7Define Method sort)+    P6P2442Ä9
  113. Kstable7wÄ1+    P**Å*+    Q)*Ç+    R
  114. )*KÉ+    S
  115. Ñ+    T)*{Ñ+    T)*;,Ö+    U)*Z0Ü+    T á+    WÖ+    Y    Ñ446Q26R26S26S2 6S2404A6Y2Ä6Y2KÅ∞°043î`2ı ¢
  116. 2aQ4≥ı M¥µ4ë&∑4ëìb4c∏SÅ ihgfed
  117. jZkWSTUì 
  118.  YSTíl\mπ]R[ÉVSTíd[
  119. m]j
  120. ŒˇˇˇR∫4ª,Q-1u4
  121. ư`≤#$µPëÇ&Csort!7Define Method sort!)+    ^6^2442à97à)+    _**key-value-pairs*    6_26_2Ä∞°21s4
  122. à†°`≤#$µPëÇ&Cparent7Define Method parent)+    h6h246h2    <integer>42ã97 ã)+    i )*;    6i2floor/∞2
  123. í04
  124. ㆰ`¢°a≥$Q%∂Pë∂QëÇ'C
  125. left-child7Define Method left-child++    m+    n+    m6m2442è97 è)+    o )*;    6o2*∞
  126. 2í
  127. 04
  128. 膰`†°a≤#Q$µPëµQëÇ&C right-child7Define Method right-child++    s+    t+    s6s2442í97 í)+    u )*;    6u2ë∞
  129. 2í
  130. 04
  131. 톰`†°a≤#Q$µPëµQëÇ&C@7Define Method smaller-child++    {+    |+    {6{246{242@97<@/+    } **;    *
  132. +    ~î+    î+    Ä
  133. î+    Åî+    Çî+    Éî6}2í6}26~2è624762∞2ë±3ëÙ ≤2ë
  134. %3≥¥3µ∞2ëí¥3µ≤2ëíí ∞2ë
  135. ≤2ë04
  136. @†°`¢°a¢°b≥$R%∂PQí∂RëÇ'CI7Define Method upheap)+    ä6ä246ä242I97bI/+    ä**;    *
  137. +    ãï+    ç    )*itemï+    é+ñ+    èñ+    ê ñ+    í ñ476ã26é26é2ã4A∞3±2í`2
  138. ˆ 3≤P∞3±≥2ëíí 
  139. 
  140.  
  141. ∞3±≥2ëía¥Q3±2É≥2ë0B
  142. ±ˇˇˇPa¥Q3±2ÉQ4
  143. I†°`¢°a≥$Q%∂PQíÇ'CW7Define Method downheap)+    ò6ò246ò242W97hW/+    ò**;    *
  144. +    ôò+    õ )*óò+    ú,ô+    ùô+    û ô+    ° ô476ô26õ2è6õ26ú26ú2@4A∞3±2í`≤2ë≥3ëÚ  3¥∞3±µ32ííPí 
  145. 
  146.  
  147. ∞3±µ32íía∂Q3±2ɵ32í0B
  148. ´ˇˇˇPa∂Q3±2ÉQ4
  149. W†°`¢°a≥$Q%∂PQíÇ'CG7    Define Method find-index)+    •6•246•242G97#G.+    ¶**Z    *
  150. +    ¶)*;ö+    ßõ+    ®
  151. õ+    ™õ+    ™ö476ß2
  152. `∞3±Pí2ı 
  153. P
  154. `
  155. ‰ˇˇˇP04
  156. 48G†°`¢°a≥$Q%∂Pßí∂QëÇ(C07(Define Method forward-iteration-protocol)+    ¥6¥2442097
  157. }00+    µ)*++    ∂ú+    ∏ú+    æú+    √ú+    »ú+    Õú+    ‘ú6µ2values6µ2"6∏2497*+    π**f    *
  158. +    ∫û6π2S∞2Å204
  159. 97)+    ø+*a*f    *
  160. 6ø23∞2q486√297
  161. )+    ƒ
  162. **f    *
  163. 6ƒ23∞2∞Ò097)+    …**f*    6…2first∞1q97++    Œ+*f*    *C
  164. +    œ
  165. )*;£+    –
  166. §6Œ2G6Œ2¢4A6œ2∞2±1ëí`3a≤Q2≥PÉ3a≤Q1≥
  167. ÉQ97)+    ’**f    *
  168. 6’2"∞2ë0∞±1뢣`¢£a¢£bR$µPQíµR뢣`¢£a&µPQß좣`¢£a®£bR)µPQíµR뢣`¢£a*µPQí¢£`¢£a+µßPQ좣`¢£a¢£bR,µPQíµRëx4
  169. 0†°`≤#$µPëÇ&Cbackwards-iteration-protocol7*Define Method backwards-iteration-protocol)+    fl6fl2442¶97ã¶1+    ‡)*++    ‚)*
  170. sorted-vectorß+    „®+    Â®+    Í®+    Ô®+    Ù®+    ˘®+    ®6‡2x6‚2ù6‚26Â246Â26Â2å97)+    Ê**f    *
  171. 2
  172. Ò04
  173. 97)+    Î+*a*f    *
  174. 21Ù97)+    **f    *
  175. 2097*+    Ù+*©*f    *
  176. +    ı≠47∞02r97++    ˙,*©*f    *
  177. *C+    ˚
  178. )*;Æ+    ¸
  179. Ø6˙2G474A6˚2∞3±02íí`4a≤Q3≥PÉ4a≤Q02ÉQ4897)+    **f    *
  180. 20∞1ë`±1≤
  181. ˇ£§a•§b¶§cS'∏QRí∏S룧a•§b¶§c)∏QRS죧a•§b¶§cS*∏QRí∏S룧a•§bP+∏QRí£§a•§bP,∏≠QR죧a•§b¶§cS.∏QRí∏Sëx4
  182. ¶†°`≤#$µPëÇ&Cn7'Define Method random-iteration-protocol)+        6    2442n97Çn0+    
  183. )*
  184. collection+     ±+    ±+    ±+    ±+    ±+    "±+    '±6
  185. 2ù6 26246262å97)+    **f    *
  186. 2
  187. 04
  188. 97)+    +*a*f    *
  189. 21Ù97)+    **f    *
  190. 62='I have no idea what the current-key is.∞!ë097*+    **f*    +    ∂4762∞2±1r97 )+    # +*f*    *C
  191. 4A6#23`∞P2±1ÉP4897)+    (**f    *
  192. 20∞
  193. ±1뢣`§£a•£bR&∑PQí∑R뢣`§£a•£b(∑PQR좣`§£a•£bR)∑PQí∑R뢣`§£a*∑PQí¢£`§£a+∑¨PQ좣`§£a•£bR-∑PQí∑Rëx4
  194. n†°`≤#$µPëÇ&ˇ# compilation (2.1) of solist.dylan
  195. # produced with the 1.2 version of mindycomp
  196. nxöæ<collection-extensions> solist.dylan=self-organizing-listD<self-organizing-list>data data-setterkey-testkey-test-setter7    #Define Class <self-organizing-list>*++94%define-class-16924list692 <dictionary>∞°≤£ëÇ$70#Define Class <self-organizing-list>+++:
  197. +<4 %define-slot22224%define-class-2244    make-slot6:2<list>
  198. init-value6<2
  199. <function>6<2== init-keywordtest∞!"Ç∞#$ǵ¶∑∏)
  200. °¢™+ó∏,
  201. £§≠.Ø//ôí∑ê∑êÑ/@sol-fip-next-state7 "Define Constant sol-fip-next-state++@+A+@6@24<type>6@2
  202. 97)+B**state    *
  203. 6B2tail∞2ë044
  204. init-variable2†°`¢°a¢°bR#¥PQí¥Rë`µ&PÉ@sol-fip-finished-state?7'Define Constant sol-fip-finished-state?)+F6F246F2
  205. 97)+G+*limit*    *
  206. 2ı44<object>42†°`¢°a#¥PQ•ì`∂'PÉ@sol-fip-current-key7 #Define Constant sol-fip-current-key++K+L+K6K246K2
  207. 6L297)+M**    *
  208. 6M2head∞∞2ëë0442†°`¢°a£°bR$µPQíµRë`∂'PÉ@sol-fip-current-element7 'Define Constant sol-fip-current-element++R+S+R6R246R2
  209. 6S297)+T**    *
  210. 6T26T2∞±2ëë0442 †°`¢°a£°bR$µPQíµRë`∂'PÉ@sol-fip-current-element-setter7%.Define Constant sol-fip-current-element-setter,+X+Y+Z+X6X246Y26Y2
  211. 97
  212. )+[
  213. +*    *
  214. *value6[2 tail-setter6[24`∞P±2ëÇP0442"†°`¢°a£°b†°cS$µPQRìµSë`∂'PÉ@sol-fip-copy-state7 "Define Constant sol-fip-copy-state++_+`+_6_246_2
  215. 97)+a**    *
  216. 20442&†°`¢°a¢°bR#¥PQí¥Rë`µ&PÉCforward-iteration-protocol7(Define Method forward-iteration-protocol)+d6d244%define-method2(97 (++e)*table+f*+g*6e2values6e26e26e26f26f2 6g2"6g2&∞1±¢£§•¶ßx4(†°`≤#$µPëÇ&@sol-no-default7
  217. Define Constant sol-no-default)+j
  218. 6j2pair42-∞í`±"PÉCelement7Define Method element)+l6l246l24)2/9default7
  219. 2/,+m**key    *+
  220. +n
  221. )*01+o
  222. )*3+q)*46m2-6n2
  223. 46n26o26o26q4catch97    ó    1
  224. +q)*return-*0*+
  225. *2    **+r7+t
  226. )*first7+v :+w :+y:+z:+z)*prev:+{
  227. )*<+|>+} )*elem>+~    ?+?+    Ä?+    Å ?+y?+z ?+    Ü
  228. :+    á:978)+q4apply4throw∞°02s46r26w26~2%6Ä26Ü2-6Ü2errorKey %= not in %=6 ±ê`≤0ëa0ı 
  229. o1≤Që2í P≥QëÅ
  230. X0b≥0ëcRdSeUı 
  231. A≤Uëf1≤Vë2í "≥Uëg¥WTÇ0g¥WUÇUgµW3ÇP≥VëÅ
  232. UgWb≥UëhXc
  233. Æˇˇˇ4¶ı ∑(23s4441ı †
  234. 1`°¢a3≥Qb§¢c3µSd∂P32TR'∏©ëq4/†°`¢°a≥$%∂PQíÇ'@ sol-no-value7
  235. Define Constant sol-no-value)+    å
  236. 6å2.42D∞í`±"PÉCelement-setter7    Define Method element-setter++    é+    è+    é
  237. 6é246è24)2E97+E++    ë
  238. +*2*+    *$
  239. +    ìF+    ñ
  240. F6ë2/06ë2D6ì2.6ì26ì26ñ2%6ñ2∞21!¢î¢ı ≥≥13í2¥í`µP2ÇP3`∂P∑2¥ëÇP44E†°`¢°a≥$%∂ßPQìÇ(ˇ# compilation (2.1) of subseq.dylan
  241. # produced with the 1.2 version of mindycomp
  242. nxöæ<collection-extensions> subseq.dylan=subseqD
  243. <subsequence>source
  244. source-setter start-indexstart-index-setter    end-indexend-index-setter7    Define Class <subsequence>*++R4%define-class-16R24list6R2
  245. <sequence>∞°≤£ëÇ$7BDefine Class <subsequence>,++S +T+W4 %define-slot2222224%define-class-224
  246. 4    make-slot6S2 required-init-keyword6T2<fixed-integer>startend∞!"Ç∞#$Ç∞%&Ç∑®π∫+
  247. °¢¨-.ó∫/
  248. £§Ø//ó∫/
  249. •¶Ø//óìπêπêÑ/C subsequence7Define Method subsequence++Z+\+Z6Z24<type>4%define-method29 7    -/+]+*last    *first
  250. *seq+^)*    old-first+_ )*old-last+`+a)* subseq-last+b+b6]26^26_2min6a2make6a2 object-class6a24∞`4±a2 ≤2PQí
  251. Qb≥¥4ë%4∂'3P(Ró04
  252. †°`†°a≤#Q$µPëµQëÇ&Cclass-for-copy7Define Method class-for-copy)+e6e2442#97#)+f)*6f2#6f2∞1±q4
  253. #†°`≤#$µPëÇ&D<generic-subsequence>
  254. init-stateinit-state-setterlimit limit-setter
  255. next-statenext-state-setterfinished-state?finished-state?-setter current-elemcurrent-elem-settercurrent-elem-sttrcurrent-elem-sttr-setter
  256. copy-statecopy-state-setter7    "Define Class <generic-subsequence>*++i4    6i2%4
  257. 6i2%∞°≤£ëÇ$7)ó"Define Class <generic-subsequence>0+/+j+k+l+m+n+o+p4 2&2'2(2)2*2+2,2-2.2/202122234
  258. 2%4
  259. 4&init((*next,done.elem0 elem-setter2copy%∞!"Ç∞#$Ç∞%&Ç∞'(Ç∞)*Ç∞+,Ç∞-.ÇøØøø/
  260. °¢//óø/
  261. £§//óø/
  262. •¶//óø/
  263. ß®//óø/
  264. ©™/ /!óø/"
  265. ´¨/#/$óø/%
  266. ≠Æ/&/'óóøêøêÑ/(C7Define Method subsequence++s+v+s6s2 46v2%429 7Ü1+w+*    *
  267. *+x)*sz:+z )*;+{0*9$*8 *7*key*done?*5*( *4=+|>+|)*i4>+|
  268. )*state8A+}C+|C+~C+~>+    Ä)*D(>+    Å
  269. E+    ÇE+    Ç:6w2size6z2forward-iteration-protocol6Ä2!6Ä2%4(56789∞4ë`2 2PÚ 2
  270. P
  271. Pa±4Åihgfedcb
  272. j3kRlZm\n[ZÛ 
  273. $U4^Sì 
  274. Z
  275. jT4^ío_l
  276. Àˇˇˇ^j≤£$4%3&Q'Z(S)T*U+W,X-Yüê04
  277. †°`¢°a≥$Q%∂Pë∂QëÇ'C7Define Method subsequence++    Ö+    á+    Ö6Ö2%4429 7ó
  278. 1 +    à+*    *
  279. *+    â)*H+    ä )*I+    ãJ+    å)*J+    ç)* K+    éL+    è+*@*5*(L+    êM+    ê)*B(M+    ê
  280. )*D,N+    ëO+    ê
  281. O+    íO+    íM+    î
  282. )*DM+    ï P+    ñ P+    ó    P+    óH6à26â26ä2 6å26ç2(6ç2*6é2,6ê2&6î2!6î2"4(5676ñ2.86ñ2096ó224∞`4±a2 ≤2PQí
  283. Qb4≥c4¥4µ4∂fed
  284. g3h4∑iWjYkXWÛ 
  285. "VS[Tì 
  286. W
  287. gUS[íl\i
  288. Õˇˇˇ[g∏π4ë*S+3P,R-W.T/U/V/4ø/4ø/4øüê04
  289. †°`†°a≤#Q$µPëµQëÇ&@gs-fip-next-state7!Define Constant gs-fip-next-state)+    õ97++    ú**s*c    +    ù R+    ûR6ú2*6ú26ú2head6ú2 head-setter6ù2tail6ù2 tail-setter2∞2±≤1ëí`≥P1Ç¥1ë
  290. `µP1Ç14
  291. 4<object>4
  292. init-variable2Q ±¢¢í`≥$PÉ@ gs-fip-done?7Define Constant gs-fip-done?)+    ¢97)+    £+*l*S    *T
  293. 6£2,6£26£2U6£2W6£23∞3±≤2ë1ì`P P≥2ë3¥˜4
  294. 4Y4Z2[ ±¢¢¢ì`≥$PÉ@gs-fip-current-key7"Define Constant gs-fip-current-key)+    ß97)+    ß**S*T    6ß2W6ß2∞1ë2±Ò4
  295. 4Y4Z2^ ±¢¢í`≥$PÉ@gs-fip-current-element7&Define Constant gs-fip-current-element)+    ™97 )+    ™ **S*T    6™2.6™26™2U2∞2±≤1ër4
  296. 4Y4Z2` ±¢¢í`≥$PÉ@gs-fip-current-element-setter7-Define Constant gs-fip-current-element-setter)+    ≠97 )+    Æ +*S*T    *v
  297. 6Æ2/6Æ26Æ2U2∞32±≤1ës4
  298. 4Y4Z2b ±¢¢¢ì`≥$PÉ@gs-fip-copy-state7!Define Constant gs-fip-copy-state)+    ≤97
  299. )+    ≤
  300. **S*T    6≤2pair6≤226≤2U6≤2W∞2±≤1ëë≥1ër4
  301. 4Y4Z2e ±¢¢í`≥$PÉCG7(Define Method forward-iteration-protocol)+    ¥6¥2%442G97 G++    µ
  302. )*+    ∂h+    ∑h6µ2values6µ2g6µ2&6µ26µ2(6µ2Q6∂2[6∂2^6∂2`6∑2b6∑2e∞±1≤1≥í1¥•¶ß®©™x4
  303. G†°`≤#$µPëÇ&D<vector-subsequence>7
  304. !Define Class <vector-subsequence>*++    ∫    4    6∫2j4
  305. 6∫26∫2<vector>j∞°≤£§íÇ%7 !Define Class <vector-subsequence>)+ 4
  306. 2j4
  307. j∞°≤ê≤ê≤êÑ#D<string-subsequence>7
  308. !Define Class <string-subsequence>*++    ª    4    6ª2l4
  309. 6ª26ª2<string>l∞°≤£§íÇ%7 !Define Class <string-subsequence>)+ 4
  310. 2l4
  311. l∞°≤ê≤ê≤êÑ#D<vs-subsequence>7
  312. Define Class <vs-subsequence>*++    ø    4    6ø2n4
  313. 6ø2l6ø2jn∞°≤£§íÇ%7 Define Class <vs-subsequence>)+ 4
  314. 2n4
  315. n∞°≤ê≤ê≤êÑ#C!7    Define Method make,++    ¡+    ¬+    ¡4    singleton6¡246¬2j42!97!)+    √**keys    *cls
  316. 6√2apply6√2!6√2j∞°¢2ì04
  317. !∞°ë¢`£¢a¥%Q&∑Pë∑QëÇ(C7Define Method subsequence++    Δ+    »+    Δ6Δ2k46»2j429 7
  318. 8/+    …+*    *
  319. *+     )*seq-sizet+    À    )*u+    Ã    w+    Õw+    Œ    w+    Œt6…2F6 2 6À2    instance?6À2m6Ã2!6Ã2n6Œ2j∞4ë`2     ±2Pí
  320. Pa≤4£í ¥•&4'3(Qó
  321.     ¥©*4+3,Qó04
  322. †°`¢°a≥$Q%∂Pë∂QëÇ'@vs-fip-next-element7 #Define Constant vs-fip-next-element)+    ” 6”246”26”2    <integer>97)+    ‘**S    *T
  323. 2
  324. 04
  325. 4Z2y†°`¢°a£°bR$µPQíµRë`∂'PÉ@ vs-fip-done?7Define Constant vs-fip-done?)+    ÿ6ÿ246ÿ26ÿ2z97)+    Ÿ+*]*S    *T
  326. 21˜4
  327. 4Z2|†°`¢°a£°b$µPQRì`∂'PÉ@vs-fip-current-key7 "Define Constant vs-fip-current-key)+    › 6›246›26›2z97)+    fi**S    *T
  328. 6fi223∞Ò04
  329. 4Z2~†°`¢°a£°bR$µPQíµRë`∂'PÉ@vs-fip-current-element7&Define Constant vs-fip-current-element)+    ‚6‚246‚297*+    ‚**S*T    +    „Å4element6„2∞2±1r4
  330. 4Z2ư`¢°a#¥PQí`µ&PÉ@vs-fip-current-element-setter7-Define Constant vs-fip-current-element-setter)+    Á6Á246Á297 )+    Ë +*S*T    *e
  331. 4element-setter6Ë23`∞P2±1ÉP4
  332. 4Y4Z2Ɇ°`¢°a#¥•PQì`∂'PÉ@vs-fip-copy-state7 !Define Constant vs-fip-copy-state)+    Ï 6Ï246Ï26Ï2z97)+    Ì**S    *T
  333. 204
  334. 4Z2ᆰ`¢°a£°bR$µPQíµRë`∂'PÉCG7(Define Method forward-iteration-protocol)+    62442G97    G++    Ò    )*+    Úâ+    Ûâ6Ò2i6Ò26Ò26Ò2y6Ò2|6Ú2~6Ú2Ä6Û2É6Û2á∞1±1≤£§•¶ß®x4
  335. G†°`≤#$µPëÇ&CF7Define Method size)+    ˆ6ˆ2j46ˆ242F97
  336. F)+    ˜
  337. )*T    6˜26˜22∞2±Ò04
  338. F†°`¢°a≥$Q%∂Pë∂QëÇ'Caref7Define Method aref++    ˙+    ˚+    ˙6˙2j46˚2Y42ã97:ã/+    ˙**rest    *T
  339. +    ¸å+    ˝)*indexå+    ˛é+    ˇé+    
  340. é+    å4Ç6˝26˝26˛2signalindex out of bounds62ã62∞2
  341. í`P
  342. ÚaQ Q
  343.     P3±3≤Ò˜ ≥$ë
  344. µ3∂P3≤í04
  345. ㆰ`¢°a≥$Q%∂Pë∂QëÇ'C aref-setter7    Define Method aref-setter++    +    +    62j462Y42ë97?ë/+    +*ç    *T
  346. *value+    í+    )*èí+    î+        î+    
  347. î+    
  348. í4Ç626262êindex out of bounds6
  349. 2ë6
  350. 2∞2
  351. í`P
  352. ÚaQ Q
  353.     P3±3≤Ò˜ ≥$ë
  354. 4aµQ3∂P3≤ÉQ04
  355. 4Y놰`¢°a≥$Q%∂ßPí∂QëÇ(C
  356. dimensions7Define Method dimensions)+    62j462k42ï97 ï)+     )*T    62vector6262∞2±2≤Òë04
  357. `¢°a≥$Q%∂Pë∂QëÇ'@subseq-no-default7
  358. !Define Constant subseq-no-default)+    
  359. 62g4Z2ò∞í`±"PÉCÇ7Define Method element)+    62j46242Ç9default7MÇ0+    **?    *
  360. +    )*ôö+        )*èõ+    ú+    ú+    ú+    ú+     ú62ò6262errorNo such element in %=: %=62No such element in %=: %=4Ç21ı †
  361. 1`3±2a2
  362. Ú P†ı ≤#32sPQ3¥˜ P†ı ≤%32sP∂3∑Qr4
  363. dž°`¢°a≥$%∂PQíÇ'CÜ7
  364. Define Method element-setter++    !+    "
  365. +    !6!2j46"26"2Y42Ü979Ü++    $+*?    *
  366. *ì+    %
  367. û+    &û6$26$26%2ùNo such element in %=: %=4Ü6&22
  368. Ú 
  369.     23∞3±Ò˜
  370. ≤#32ì
  371. 4`¥P3µ23±ÉP04
  372. 4Y܆°`¢°a£°b¥%R&∑®PQì∑RëÇ)C7Define Method subsequence++    *+    ,+    *6*2m46,2l429 7
  373. 8/+    -+*    *
  374. *+    .)*vü+    0    )*†+    1    °+    2°+    3    °+    3ü6-2F6.2 602x602k612!612n632l∞4ë`2     ±2Pí
  375. Pa≤4£í ¥•&4'3(Qó
  376.     ¥©*4+3,Qó04
  377. †°`¢°a≥$Q%∂Pë∂QëÇ'ˇ# compilation (2.1) of vecsearch.dylan
  378. # produced with the 1.2 version of mindycomp
  379. nxöæ<collection-extensions>vecsearch.dylan=
  380. vector-searchCfind-first-key7Define Method find-first-key)+:6:2<vector>4<type>4%define-method29startendfailure7)+<-*fail*last    *
  381. *pred?*seq6<4catch97^/+<)*return-*
  382. *
  383. *    * *
  384. +=+>)*sz+?)* +?
  385. )*i+@+A97)+<4apply4throw∞°02s4list6=2size6?2<fixed-integer>4element6 ±ê`≤0ëa1 1QÚ 1
  386. Q
  387. Qb£c2dReTfUTÛ 
  388. 3¥0Víë     PVÅ
  389. T
  390. d
  391. “ˇˇˇ444<object>∞14325!≤£ëq44†°`≤#$µP¶íÇ'C
  392. find-last-key7Define Method find-last-key)+G6G244297)+I-*
  393. *     *
  394. * *
  395. 6I497q/+I)*-*
  396. *
  397. *    * *
  398. +J +K)* +L )* "+L)*#+M$+N$97)+I44∞°02s46J24    negative?46 ±ê`≤0ëa1 1QÚ 1
  399. Q
  400. QbR
  401. Òc2d
  402. ˇeSf≥Uë STÚ
  403. TSÚ 
  404. 3¥0Víë     PVÅ
  405. SUc
  406. √ˇˇˇ444∞14325!≤£ëq44†°`≤#$µP¶íÇ'ˇ